home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / 68343ffp.arc / IEFPWR.SA < prev    next >
Text File  |  1989-08-30  |  3KB  |  62 lines
  1.          TTL       IEEE FORMAT EQUIVALENT POWER FUNCTION(IEFPWR)
  2. ***************************************
  3. * (C) COPYRIGHT 1981 BY MOTOROLA INC. *
  4. ***************************************
  5.  
  6. *************************************************
  7. *                  IEFPWR                       *
  8. *   IEEE FORMAT EQUIVALENT  POWER FUNCTION      *
  9. *                                               *
  10. *  INPUT:   D6 - IEEE FORMAT EXPONENT VALUE     *
  11. *           D7 - IEEE FORMAT ARGUMENT VALUE     *
  12. *                                               *
  13. *  OUTPUT:  D7 - RESULT OF THE VALUE TAKEN TO   *
  14. *                THE POWER SPECIFIED            *
  15. *                                               *
  16. *     ALL REGISTERS ARE TRANSPARENT             *
  17. *                                               *
  18. *    MAXIMUM STACK USED:    52 BYTES            *
  19. *                                               *
  20. *  CONDITION CODES:                             *
  21. *        Z - SET IF RESULT IS ZERO              *
  22. *        N - CLEARED                            *
  23. *        V - SET IF RESULT IS NAN (NOT-A-NUMBER)*
  24. *            (INPUT ARGUMENT NEGATIVE OR NAN)   *
  25. *        C - UNDEFINED                          *
  26. *        X - UNDEFINED                          *
  27. *                                               *
  28. *  NOTES:                                       *
  29. *    1) SEE THE MC68344 USER'S GUIDE FOR DETAILS*
  30. *       CONCERNING LIMITATIONS ON NORMALIZED    *
  31. *       ARGUMENT RANGES.                        *
  32. *    2) A NEGATIVE BASE VALUE, OR ZERO TO A     *
  33. *       NEGATIVE POWER IS INVALID AND RETURNS   *
  34. *       A NAN WITH THE "V" BIT SET.             *
  35. *    3) SPOT CHECKS SHOW AT LEAST SIX DIGIT     *
  36. *       PRECISION FOR 80 PERCENT OF THE CASES.  *
  37. *                                               *
  38. *************************************************
  39.          PAGE
  40. IEFPWR   IDNT  1,1 IEEE FORMAT EQUIVALENT POWER FUNCTION
  41.  
  42.          OPT       PCS
  43.  
  44.          SECTION   9
  45.  
  46.          XDEF      IEFPWR                        ENTRY POINT
  47.  
  48.          XREF      9:IEFLOG            IEEE LOG FUNCTION
  49.          XREF      9:IEFMUL            IEEE MULTIPLY ROUTINE
  50.          XREF      9:IEFEXP            IEEE EXPONENT FUNCTION
  51.          XREF      FFPCPYRT            COPYRIGHT STUB
  52.  
  53. *****************
  54. * POWER  ENTRY  *
  55. *****************
  56. IEFPWR   BSR       IEFLOG              FIND LOW OF BASE VALUE
  57.          BSR       IEFMUL              MULTIPLY BY THE POWER
  58.          BRA       IEFEXP              FINISH WITH EXPONENT RESULT
  59.  
  60.          END
  61.  
  62.